Imports b3t.CardGameFramework

Public Class Player

    'Objects to store player information
    Private _handProp As TarotHand
    Private _currentDeckProp As Deck
    'Creates a list of cards
    Private _cards As New List(Of Card)


    Public Property CurrentDeck() As Deck
        Get
            Return _currentDeckProp
        End Get
        Set(ByVal value As Deck)
            _currentDeckProp = value
        End Set
    End Property
    Public ReadOnly Property Hand() As TarotHand
        Get
            Return _handProp
        End Get
    End Property
    Private _Points As String
    Public Property Points() As String
        Get
            Return _Points
        End Get
        Set(ByVal value As String)
            _Points = value
        End Set
    End Property
    Private _idealer As Boolean
    Public Property IsDealer() As Boolean
        Get
            Return _idealer
        End Get
        Set(ByVal value As Boolean)
            _idealer = value
        End Set
    End Property


    ''' <summary>
    ''' Creates a player 
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New()

        Me._handProp = New TarotHand
        Me.Points = "0"
    End Sub


    ' Creates a new hand for the current player
    Public Function NewHand() As TarotHand
        Me._handProp = New TarotHand
        Return Me._handProp
    End Function
End Class